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PPP PPP LLL II] RER RRR TTT LLL 

PRP PPP LLL III one RRR TTT LLL 

PPP PPP LLL II] RRR RRR TTT LLL 

PPP PPP LLL II] ROR RRR TTT LLL 
PPP PPP LLL II] RRR RRR TTT LLL 

PPP PPP LLL II] dd TTT LLL 

PPPPPPPPPPPP LLL II] RRRRRRRRRRRR TTT LLL 

PPPPPPPPPPPP LLL III RRRRRRRRRRRR TTT LLL 

PPPPPPPPPPPP LLL II] RRRRRRRRRRRR TTT LLL 

PRP LLL II] RRR RRR TTT LLL 

PPP LLL II] RRR RRR TTT LLL 

BPP LLL II] RRR RRR TTT LLL 

PPP LLL II] RRR RRR TTT LLL 

PRP Lil II] AER RRR TTT LLL 
PPP LLL I]] FOR RRR TTT LLL 
PPP LELLLLELLLLLLLL IIIIIII11 RRR PRR TTT LLLLLLLLLLLLLLL 

PPP LELLLLELLLLLLLL IIIIIII11 RAR RRR TTT LLLLLLLLELLLLLLE | 
PPP LLLLLLLLLLLLLLL IIIIII111 RRR RRR TTT LELLLLELLLLLLLL 


ad 
nn 


in 
ix 
13 


Ot oe Ps be bt bb be bt 


bo bs be oe as es | ell onl coed 


PRPPZ PPPPVPP PPP -PPPPPPPPPPPPPPPP? 


osenenes 


227222222 


*eF I LE®*1De*PLIREWRIT 


PPPPPPPP ss LL I1i111  RRRRRRRR  EEEEEEEEEE ww WW RRRRRRRR HII! 
PPPPPPPP ss LL IIIII] RRRRRRRR EEEEEEEEEE WW WW RRRRRRRR WII! 
PP PP LL I] RR RR EE wld WW RR RR II 
PP PP LL II RR RR EE Wid WW RR RR II 
PP PP LL II RR RR EE Wid Ww RR RR II 
PP PP LL II RR RR EE wld WW RR RR II 
PPPPPPPP == LL I] RRRRRRRR = EEEEEEEE ~— Wd WW RRRRRRRR II 
PPPPPPPP = LL I] RRRRRRRR = EEEEEEEE ~— Wd WW RRRRRRRR II 
PP LL II RR RR EE WW WW WW RR RR II 
PP LL I] RR RR EE WW WW Ww RR RR I] 
PP LL II RR RR EE WWW WWWW RR RR II 
PP LL I] RR RR_ €EE WWW WWWWw RR RR II 
PP LLLLLLLLLL «=sTIIII ~—oRR RR EEEEEEEEEE WW WW RR RRs IIIT 
PP LLLLLLLLLE }=—sTIII ~—oRR RR EEEEEEEEEE WW WW RR RRs TIN 
LL HII! SSSSSSSS 

LL HHI SSSSSSSS 

LL I] SS 

LL II SS 

LL I] SS 

LL I] SS 

LL II SSSSSS 

LL II SSSSSS 

LL II SS 

LL I] SS 

LL I] SS 

LL I] SS 

LLLLLLLLLL JIIIII —- SSSSSSSS 

LLLLLLLLLL §©6sSTII© =©=— ss SSSSSSSS 
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PLISREWRITE - pli runtime rewrite file 16-SEP-1984 02:26: AX/VMS M 
ef : ‘ 6-SEP-1984 05: 38:08 : Re 


000 etitle pli$rewrite - pl1 runtime rewrite file 
009 ‘ident 71-0087 7 ; Edit D$81003 
000 
44h WITTIIITISIIIIITITITLTII IIIT TTT LILiLi Titi Li titi TTL LiL i TTT Titi iii 
;* ® 
0000 3* COPYRIGHT (c) 1978, 1980, 1982, 1984 BY * 
0000 3* DIGITAL EQUIPMENT EORPORATION, MAYNARD, MASSACHUSETTS. * 
4 - ALL RIGHTS RESERVED. * 
3 it 
0000 3* THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED * 
0000 3* ONLY IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE * 
0000 :* INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR AN * 
0000 :* COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY * 
0000 5s SON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY ® 
444 TRANSFERRED. * 
3 ® 
0000 3* THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE * 
0000 3* AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT * 
4 :* CORPORATION. * 
3 ® 
0000 3* DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS * 
0000 3* SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. * 
$000 eS : 
. ® 
4464 ITITIS IIIT IIIT T IIIT ITT ittitititiiiiiiiitititiiiitiiiiititiii iti iti it 
+4 
facility: 
VAX/VMS PL1 runtime Library. 
abstract: 


pais caomene contains the pli runtime routine for rewriting a record to 
a file. 


author: c. spitz 18-jul-79 
modified: 


1-002 Bill Matthews 29-September-1982 
Invoke macros $defdat and rtshare instead of $defopr and share. 
1-003 Dave Blickstein 21-February-1984 


Do a SFIND if RECORD_ID was specified. RECORD_ID was 
being ‘‘ignored’’ because RMS does not allow it for SUPDATE. 


Be Se Ge Se Se Se Se Se Ge Se Se Ge Se Ge Ge Se Ge See Ge Ge Ge See 


NAME WR 9 OD NAME WN 0 ODNAUMU EWN 9 OD NOAU EWN OOO NAUE WW OWOONOUS Wh 


PUPS EBS BS BS BE ANNAN NANI POPU NOPINONPOPONI DN 2 2 Os es oe 


SOOoooooooooooooooooooooooooooo 
SOoOOOCSSOSOOCOCOOSOOSOOOOSOSOSOOSOOOOSOoOOoOSSoS 
SOOoooooooooooHjOoooooooooooooooo 
SOOCOCOCSCOSOSCOCOCOOOSOCOCOCOOSOOOOOCOOoooooO 


ha 
3 external definitions 


K 15 
PLISREWRITE - pli runtime rewrite file y P=1984 
5 tb08 . “ =1984 


-oO 


¢ ¢6: 9¢ AX/VMS Macro V04-00 Page G 


ro 
PLIRTL.SRCJPLIREWRIT.MAR; 1 ) 


| 
| 
00 28 hs | 
00 60 $deffcb :detine file control block offsets 
00 61 $defdat ideti jne operand node data types 
8 86 $defplirtcons :define pl1 runtime constants 
6 Srabdef idefine oab offsets 
0 64 $fabdef idefine fab offsets 
000 865 Srmsdef idefine rms error codes 
0000 66 
0000 67 ;+ te 
2004 68 3 local definitions 
$60 % $offset 4 4,positive,<- sdefine arguments | 
0000 = 77 <fcbaddr,4>,- saddr of fcb 
0000 Le sirenpaet 4>, - addr of from 
0000 7 <fromlen, >.° zlength of from 
0000 74 <fromtyp, sdata type of from 
0000 75 <keyaddr 4>.- zaddr of ney 
0000 76 <keylen,4>,- :length of key 
0000 77 <keytyp,4>,- tdata type of a 
0000 78 <keynum,.4> ~ zsaddr of key number 
0000 ~3= 79 <matchgtr,4>,- saddr of match greater 
0000 80 Snetengre. 4>,- saddr of match ereeter equal 
0000 81 <recidfrom,4>,- zsaddr of record id from 
0000 B¢ <recidto,4>,- saddr of record id to 
0000 8 ag peg 4>,- zsaddr of fixed control 
0000 84 <fxclen,o>,- tlength of fixed control 
0000 85 Stuctyp. *2>.- idata type of fixed control 
0000 86 3 
0000 87 
0000 88 rtshare sharable 
0000 89 


L 15 
PLISREWRITE - pli ti ite fi 
1-008 ap yhrgpeiend teense Sy "$SEP=1984 19:99:56 EPLINTE. SRCSPLUREURIT mans "2° 


soe 

: pli$rewrite -- rewrite a record to a file 

; functional description: 

This routine rewrites a record to a pl! file. 


inputs: 
(ap) = number of arguments 
1 if no from, no key and no options 
3 if from, no key and no options 
6_if from, key, and no options 
13 if any 9 opt ons 
- addr of fcb 
- addr of from | 
- word Length of from | 
) = word data type of from | 
addr of key 
size/prec of key 
ata type of a 
key number 
of match greater 
addr of match greater 
addr of record id from 
addr of record id to 
of fixed control 


COQOQOooCQooooCooooooooooooo 
OoOoooooooooooooooo°ooo 


DOKL BAH DS NVUMPNINNOOOCOOCOSSOSSSSSSSOSOOSCSOOSOOOSOOSOOSOOOOOOOOOOOOOOOO 


MES SWIMS OOF 
peoerennns 
eva 
a a 
Qa 
7 


addr 
- len th of fixed control 
) = data type of fixed control 


feb_l_attr 
atr_m ~bfall, ptr m_delete, atr_m_virgin and atr_m_write are set 
o false 
atr_m_currec is set true 
fcb_q_ ote if Set to the rfa of the record that was rewritten 


side effects: 
the record is rewritten in the file. 


Se Se Se Se Ge Se Se Ge Se Se Ge Se Se Ge Se Se Ge Se Se Se Se Se Se Se Se Se Se Se Se Se See Sse Sse Se tes 


| 
| 
outputs: 
| 
| 
| 
| 


SOOCCSSSOSOSCSoSCSOSOOSOSOCOSOOSOSOSOOSSOSoOSoOoOSoOSoS 


SOOOCSCCOSOOOSOOOOOSOOSOOSOOOSOOSOSOSOSOSOOSOSOSOOSOOOCSOOOOOOCOOCOOOOOOOOOOOOO 
3 4 MQOOQOOCOCOCOCOCOOCOOCOOOOOOCSOSOSOOSOSOSOSoOSOSSoOS 


BEEPS SF PWWWIWIWIWIIIWIWIIRININININININININID 2 2 PP OPO OP S| MDOODOOCOOOCOCOCOWOOOOOOOODO 
NAUE WN OS OONOUE WN - $0 OD NAU EWN $9 ODNAU SW OO DNOAOUE WO OONOULS WR 


a a a ed a oe = 8 2 2 3 2 = = a 


007C¢ entry pli$rewrite,*m<r2,r3,r4,r5,r6> 
3; check arguments 

01 6C O01 cmpl (ap) ,#1 senough arguments? 
14 13 beql 10 sif eql., yes 
03 6C~ O01 cmpl (9p) #3 scorrect number of args? 
OF 13 beql 10 zif eql, no 
06 6C OD! cmpl (ap) ,#6 tcorrect number? 
OA 13 beql 1 :if eql, yes, cont 
0D ¢ D1 cmpl tap) 15 icorrect amber 
13 beql 10 neq, 
0 Bs 0 clrl r0_ aindtcate net enough parms 
01CC 1 00 brw fail sand fai 

52 04 AC 00 00 10$: mov l fcbaddr(ap),r2 sget address of fcb 


M15 
PLISREWRITE - pli runtime rewrite ile 16-SEP-1984 02:26:02 VAX/VMS Macro V04-00 P 
L008 , 66-SEP-1984 94:98:02 PLIRTL.SRCIJPLIREWRIT.MAR; 1 
53 OC A2 00 iF 138 mov l feb_l_attr(r2),r3 iget attributes 
139 : open the file if necessary. it will be opened with record and update. 
151 ; if the file is still closed after calling open, the error condition is 
136 ; signaled. 
4 53. 01 «£0 00 154 bbs #atr_v_opened 3, 30$ if file opened, continue 
00001010 8F DD 00 155 pushl #atr_m_record!atr_m_update ;file must have record and update 
DD 0020 138 20$ pushl fr spush address of fcb 
reomes ; thal 0 FB OO2F 15 calls #2,g*pli$open sopen the file 
5 OC A DO 0036 138 mov fcb_l_attr(r2).r3 iget attributes 
A 53 4 EO OO3SA 15 bbs #atr_v_opened,r3,30$ iif file opened, continue 
50 00000000'8F 0 0 3 160 movl #pli$_dpen.r sset open failure 
019F 1 one 19) brw fail gand fail 
0948 188 ; check statndard attributes of file. record and update must be present. 
se 192 ; delete must be absent. 
0A 53. OC £0 0048 166 30$: bbs #atr_v_record,r3,40$  ;if file has record, continue 
50 00000000'°8F D0 pees 167 movl #pli$_notrec,r0 set not record file 
0191 31 005 168 brw ail sand fail 
0A 53. 04 E00 0056 169 40S: bbs #atr_v_update,r3,5000$ ;if file doesn’t have update 
50 00000000'8F D0 O05A 170 mov | #pLi$_notupdate,r0 sset not update file 
0183 31 0061 171 brw fail zand fail 
0064 176 : 
Boe 17 3; process options 
54 62 A2 9E 0064 175 5000$: movab feb b_rab(r2),r4 sget address of rab 
2C AS) «60D& «(0068)~—Ss(«i176 clrl rab$l-rhb(r4) zsassume no fixed control from 
04 AS 00600000 8F CA poee 177 bicl #<rab$m_kge!rab$m_kgt>,rab$l_ropi(r4) ;clear kge and kgt 
0b 6C 01 007 178 cmpl 9p) of options passed? 
40 19 0076 179 ’ blss 60 :if iss, no 
B08 180 ; fixed control 
50 30 AC 9E 007 181 movab fxcaddr(ap).r0 sget addr of fixed control 
00000000'GF 16 007C 18 s g*pli$Sfxdctl from process fixed control 
boas 183 ; key number 
50 1C AC DO 008 184 mov keynum(ap) ,r0 sget addr of key num 
51 10 AC DO 0086 185 mov keyaddr (ap) ,r1 get addr of nee 
00000000'GF 16 OOB8A 186 jsb g*pli$$keynum process keynumber 
0090 187 ; match greater 
50. = 20 AC «600 0090) «86188 mov matchgtr(ap),r0 sget addr of match greater 
00000000'GF 16 0094 189 s g*pli$Smatchgtr process match greater 
OO9A 190 ; match greater equal 
50 $ AC 00 9A 191 matchgeq(ap) ,r0 :get addr of match greater equal 
00000000'GF 16 OO09E 135 sb g*pli$$matchgeq process match greater equal 
OAS 193; record id to ; 
50. 2C AC DO QOAS 194 m recidto(ap),r0 sget addr of record id to 
00000000'°GF 16 QOA8 195 s g*pli$$valrecidto svalidate record id to 
CAE 18 ; record id from ; 
50 8 AC DO Q0A 19 mov l recidfrom(ap) ,r0 sget addr of record id from 
00000000'GF 16 3 138 jsb g*pli$$recidfrom sprocess record id from 
O88 89 ; if from option is not present, try to use allocated buffer. 
01 Cc «(O1 08 § 60s: cmpl (ap), #1 :from specified? 
4 14 Q0BB bgtr 90 if gtr then maybe 
OA 53 1 €0 0O0B8D 4 70$: bbs #atr_v_bfall,r3,80$ :if buffer not allocated 


N 15 
PLISREWRITE - pli runtime rewrite file 16-SEP-1984 AX/VMS M v04-00 P 
be . 3 gre ee 5b 8Fi88:c FOMTNTS Sae5e, Vee eey mans1 29 G3 


50 ameeey 0 +P 05 75$: movl #pli$_nofrom,r0 zsset no from specified 
11¢ 1 C8 § brw fail sand fail 
06 +" D1 O0CB 80$: cmpl fap). #6 key specified? 
19 Bc 8 blss 85 :if iss, no cont 
10 AC D5 D 09 tstl keyeddr (ap) ikey specified? | 
E is OD 10 bneq 7 f neq, yes, fail, it requires from 
$8 AG OIG A D 0D 11 85$: mov l feb_l_buf(r2) ,rab$l rt ra) :copy address of buffer 
204 1C Ad BO OODA 1g movw sf fcbe (“buf_pt(r2),rab$w_rsz(r4) scopy size of butter te rok | 
6 11 OODF 1 brb cont 
oe! 14 ; 
+3 12 3; process from option. 
28 AG) «6(OB AC ODO SOE} i $0s: movl fromaddr(ap),rab$l_rbf(r4) iat address of buffer 
dS) =—s«i13 Bee 18 beql 70$ 31 then not specified 
Oc AC ODD OOE 19 pushl Hogg isee ‘push vsize” ne data type of from ref 
00000000 ' GF 7 FB OOE 20 calls #1 0:95 3°" bytesize af byte 
03 50 S OOF 21 blbs ‘ inyat id data type 
00% 1 OOF ¢ brw ~y fail 
22 AG 1 BO OOF8 95$: movw fa! yp Oe rsz(r4) sset size in rab 
OE AC % Bi OOFC 4 cmpw #dat kk char_var, sremyetiel” av from is char var 
1 12 8198 $§2 bneq 100$~ jthe 
0B 53 OD £0 010 6 bbs #atr_v_scalvar,r3,96$ it scoter varying set, write it all 
22 A4 «608 BC) «6BO GUC0106 = 227 movw @fromaddr(ap), rab$w_ rsz(r4) ;set current size 
28 AG 2 9 Hs $58 ~ ge ,rebsl. rbf(r4) same address so we don't write length 
r | 
22 AS «=6—02—Ss« A Brie 96$: addw #2,rab$w_rsz2(r4) 4 ty size of vcha 
0115 232 : process key option. 
O13, 938 : | 
06 6C 01 0115 334 100$: cmpl (ap),#6 skey specified? 
19 0118 235 blss 1208 iif Uss, then no, continue | 
50 10 AC 00 QO11A = 236 mov l keyaddr(ap). rd Copy address of key 
13 O11E 237 beql 1208 tif egl, then no key | 
OA 53 08 €0 0120 238 bbs #atr_v =keyed. 73,1108 tif file is keyed sete 
50 00000000'8F DO 0124 239 mov L *pli$_notkeyd,rO iset not keyed fi 
00B9 31 0128 240 brw tail gand fail 
50 10 AC 9E QO12E 241 1108: movab teyaddr (ap) r0 spores by hey descr 
00000000'GF 16 0132 seg 138 q Pe § ber ey_r prog sy 
5A OOBC C2 EO 138 34 bs fab$v bio, <fcB_ b_tab+tabeh facs(rs3, 1608 sif blockio, cont | 
00000000'GF 16 O13E 244 sb , optiss Ssmaliget~ :find the record | 
52.11 aie $2 rb icont | 
0146 47 ; set up for sequential rewrite. if current record not correct, find the 
bree $8 3 correct one. | 
OD 6C O01 3148 50 120$: cmp (9p) .15 options pessed? 
05 19 014 51 bliss 125% iif lss, n | 
28 AC DS 0148 26 tstt regsétrentap) srqcore id teen seastttedt 
18 148 5 bneq neq yes. cont 
0A 53 OA €E 15 54 125$: bbs #atr_v_seql,r3,130$ a seq( file, continue 
50 00000000‘ 8F 0 154 55 mov oni is $_fotsal, r6 iset not sequential file 
0089 1 0158 2$ brw and fail 
05 008C C2. 05 = €1 OSE 57 130$: bbc #tabsy bio. <tcb_ b_ tabs tabsb fac>(r2) 135$ ;if block io 
38 A2 =D4 «(0164 28 clr rab$l_Bkt ise te seq( write | 
F 11 0167 5 brb 160$ ~ 3¢on 
- 53 3 «6©€1 «O0169 60 1333: bbc #atr_v_delete,r3,137$ tif fite has delete 
50 00000000°8F D0 016D 61 136$: movil #pli$_focurrec, r6 pset no current record 


—TOMMNOOWZ ES KOCK TO MMOOCWZSl KAOCK TOM ICOMOS SE KCK LO MM IOOZ Sr ACH TOaMIowW 


PLISREWRITE 
1-003 


09 


OA 50 
00000000 * 8F 
goes 
021A0000 8F 
00040000 8F 
A210 AG 
0D 6C 


50 
OC A2 
OC A2 
20 
50 
60 


OA 

2c AC 
04 

10 A4 
50.0 (01 


—————————————e 


- pli runtime rewrite file 


31 017 6 brw 
1 153 8 137$: bbe 
178 64 movb 
D OI7F 65 mova 
EO 0184 $6 bbs 
188 67 140$ $find 
34 191 rt: Lbc 
0 194 § 150$ movb 
bs ae | d 
3; update record. 
19 6 . 
E1 019 73 160$: bbe 
5 74 $Swrite 
11. O1A 75 brb 
01A9 76 161$:  $update 
E8 3 18¢ 77 165$: blobs 
DO 018 78 170$: movil 
31 01BC 79 brw 
CA 0O1BF 80 180$: bicl 
01C7 81 
cs G1C7 3 bisl 
D OCF 8 mcovq 
Di O1D4 84 cmpl 
19 O7D7 285 blss 
DO 0109 286 mov l 
13 01DD 287 beql 
7D ODF 288 movag 
DO O1€3 289 185%: movl 
04 0166 290 ret 
O1E7 = 291 


B16 16-SEP-1986 02:26:02 
pate ri tS A 9) 
fail 


zand fail 
#Watr_vicurrec,r3,150$  ;if current record not correct 
#rad$c_rfa,rab$b rac(r4) ;set for rfa access 
fcb_q_Ffa(r ) -rab$y rfa(r4) ;set rfa in rab 
Watr_V_virgin,r3,1368 ;if tile just opened, fail 

r6 ifind the pl1 current record 
r0,170$ sif find failed, then fail 
#rab$c_seq,rab$b_rac(r4) ;set sequential access in rab 


AX/VMS Macro v04-00 
PLIRTL.SRCIPLIREWRIT.MAR; 1 


#fad$Sv_bio,<fcb_b_fab+fab$b_fac>(r2),161% ;if block io 
r4 ;do a write 

165$ jcont 

r4 ;update the record 

r0,180$ sif lbs, continue 
#oli$_rmsr,r0 jset error code 

fail zand fail 


#<atr_m bfall!atr_m_delete! - ;"deallocate’ buffer, clear del, 
atr_m_virgin!atr_m_write>,fcb_i_attr(re) ;virgin and write 
Watr_m_currec,fcb_U_attr(r2) Fset current record net correct 
rab$w_rfatr4),fcb_q_rfa(r2) ;save correct current record's rfa 


(ap) #1 soptions passed? 
5 sif lss, no 
recidto(ap),r0 get addr of recid to 
1 ;if eql, not specified 
rab$w_?fa(r4),(r0) zset recid to 
#1,r0 sset success 

;return 


tea * 


C 16 


PLISREWRITE = pli runtime rewrite file .* EP=1 2 aie cro v04-00 Page 7 
S008 A EP=1 3B 4: $$: 9 PLIRTL.SR RIP LIREWRIT.MAR; 1 . (1) 
1€7 93 
12 is 1€7 94 fail:  bneg 10$ sif neq, then enough parms, continue 
50 00000000 gf D 1€9 5 mov l #pli$_parm,r0 rset not enous” parms 
2 D4 OF 3 clrl r yassume no fcb specified 
01 $s ») 1F 9 cmol (ap) ,#1 jwas there a fcb specified? 
1 1F 98 blss 4 :if lss, then no 
a 4 AC DO OIF? 99 mov | Tebegdr (ap) . r2 iget address of fcb 
50 00000000'8F D1 O1FB 00 108: cmpl #oli$_rmsr, r0 rms rab error code? 
ty 12 8306 01 bneq 40$ tif nec, then no, raise error 
08 AS) = 0001827A BF D1 8 04 8 cmpl #rms$_eof,rab$l_sts(r4) send of file? 
oe te 0c 0 bneq 20$ :if neq, then no 
6 DD 8 0 Be pushl fr set fcb addr 
dD 1 5 pusht 0. : ;set error code pot 
00000000'8F DD 021 06 ushl #pli$_endfile zraise endfile condition 
19 11 021 07 rb 50$ ;cont inue 
06 6C~ O01 BsiA 08 208: cmpl $0). 46 skey specified? 
OA 19 021D 09 blss 40 tif lss, no, cont 
53 10 AC 9E BS 3s 10 movab kevedér (op) 3 ;set addr of key descr for onkey 
00000000'GF 16 0223 11 jsb g*pli$$chk_keycnd scheck for key condition 
52 DD 0229 16 40$: pushlL r2 set fcb addr 
50 DD 0228 1 pushl r0 yset error code 
00000000'8F DD 022d 14 pushl oy SS orcas ;set error condition 
00000000'GF 03 fe Os32 312 50$: a #3,g9*pli$io_error signal the condition 
re zreturn 
9238 317 
0238 46318 
0238 4 319 end 


| D 16 ry 


PLISREWRITE - pli runtime rewrite file 16-SEP-1984 02:26:02 VAX/VMS Macro v04-00 Page 8 
Symbol table . ary 96:98:02 CPLIRTL. SREIPLIREWRIT.MAR: 1 (1) 
$$. TMP) = 00000001 FROMLEN 000000C 
$$. TMP2 = 00 § 4 FROMTYP 00 a00E 
ATR_M_BFALL = 00 FXCADDR 88 00 
ATR_M_CURREC = 0004 FXCLEN 000034 
ATR_M_DELETE = 444 00 FXCTYP 0000036 
ATR_M_RECORD = 00001000 KEYADDR 0000010 
ATR_M_UPDATE = O888 10 KEYLEN 0000014 
ATR_M_VIRGIN = 00 °° KEYNUM 000001C¢ 
ATR_M_WRITE = 0010000 KEYTYP 00000018 
ATR_V_BFALL = 00000011 MATCHGEQ 00000024 
ATR_V_CURREC = 0000001 MATCHGTR 00000020 
ATR_V_DELETE = Bo08 4 PLISSBYTESIZE keeeneee =X 08 
ATR_V_KEYED = 0000000 PLISSCHK_KEYCND RHR E x 
ATR_V_OPENED = 00000001 PLISSFXOCTLFROM weexeeee XK 02 
ATR_V_RECORD = 44 44 8 PLISSKEYNUM weeneeee XK 02 
ATR_V_SCALVAR = 00000000 PLISSMATCHGEQ eeeeeeee KX 02 
ATR_V_SEQL = Q000000A PLISSMATCHGTR weeeeeee X 02 
ATR_V_UPDATE = 00000004 PLISSREADKEY_R6 aeeeeeee = X 02 
ATR_V_VIRGIN = 00000019 PLISSRECIDFROM eeeneeee = =6X =| (2 
DAT_K_CHAR_VAR = 00000008 PLISSSMALLGET eeeneeee =X 02 
IR... = 00000001 PLISSVALRECIDTO aeaeeeee X 02 
FABSB_FAC = 00000016 PLISIG_ERROR ektkeeee x 02 
FABSV_BI1O = 00000005 PL N aeeeeere = X 02 
FAIL Q00001E7 R 02 PLISREWRITE 00000000 RG 02 
FCBADDR 00000004 PLIS_ENDF ILE eeenenee YX 02 
FCB_B_ENVIR 000001C2 PLIS"ERROR texeeeee X 02 
FCB_B_ES Boone ge PLI$_NOCURREC eeeneeee = X 02 
FCB_B_EXTRA 0000003D PL1$_NOF ROM ReeKee ee x 02 
FCB_B_FAB 000000A6 PLI$S_NOTKEYD ateeeneee KX 02 
FCB_B_IDENT 00000040 PLIS_NOTREC eeeeeeee KX 02 
FCB_B_IDENT_NAM 00000042 PLI$_NOTSQL aeeeeeee KX 02 
FCB_B_NAM 000000F 6 PLIS_NOTUPDATE eeeeeene x 02 
FCB_B_NUMKCBS 000003C¢ PLI$_OPEN aeeeeeee KX 02 
FCB_B_RAB Bp RR noes PLI$_PARM aeeneeee =X 02 
FCB_C_LEN 000001C PLI$_RMSR eeeeeeee XX 02 
FCB_C_STRLEN 00000034 RABSB_RAC = QOO0001E 
FCB_L_ATTR 0000000C RABSC_RFA = 06000002 
FCB_L_BUF 00000014 RABSC_SEQ = 00000000 
FCB_L_BUF_END 00000018 RABSL_BKT = 00000038 
FCB_L_BUF _PT 0000001C RABSL_RBF = 00000028 
FCB-L-CNDADDR 00000182 RABSL_RHB = 0000002C 
FCB-L-CONDIT 000001AE RABSL_ROP = 00000004 
FCB_L_DTTR 00000010 RABSL_STS = 00000008 
FCB_L_ERROR ais iat RABSM_KGE = 00200000 
FCB_L_KCB 000000 RABSM_KGT = 00400000 
FCB_L_NEXT 00000000 RABSW_RFA = 60000010 
FCB_L_ PREVIOUS 00000004 RABSW_RSZ = 00000022 
FCB_L_PRN 00000034 RECIDFROM 00000028 
FCB_Q"RFA Bop ESE RECIDTO eee ery 
FCB_W_COL 000000 3 RMS$_EOF = af A 
FCB_W_IDENT_LEN 0000004 Ti Bate = 00000001 
FCB_W_LINE 00000030 SYSSF IND eeeeeeee GX 02 
FCB_W_LINESIZE eee ta SYSSUPDATE eeeeeene GX bs 
F CB" W~ PAGE 900000 2 SYSSWRITE teeeeere GX 0 
HE ASE ish 
FROMABDR $0000008 


"G-SEP=-1986 11:89:56 LPCIRTE.SREIPLIREURIT.MAR:1 99 (3) 


PLISREWRITE 


- pli runtime rewrite file 
Psect synopsis 


! Psect synopsis ! 


feces anzresnroenewmea ts 


PSECT name Allocation PSECT No. Attributes 


: . 00000000 < 0.) 00 ¢ 0.) NOPIC USR CON ABS LCL oo he NOEXE NORD eo NOVEC BYTE 
SABSS QO0001C2 ¢€ 450.) O01 ¢ 1.) NOPIC USR CON ABS LCL NOSHR EXE RD T NOVEC BYTE 
-PLISCODE 00000238 ¢ 571.) 02 ¢ 2.) PIC USR CON REL LCL SHR EXE RD NOURT NOVEC LONG 


tewmrnnr emo neon ewer ear oacscee 

! Performance indicators ! 

foe mmonenmon nema oor e ean a eae + 
Phase Page faults CPU Time Elapsed Time 
Initialization 21 00:00:00.08 00:00:00.51 
Command processing 86 see ah Se 00:00:01.73 
Pass 1 204 00:00:07.7 G0 :00:16.69 
Symbol table sort 0 8389 :00-8) 00:00:01.39 
Pass 2 63 0:00:01.48 00:00:02.96 
Symbol table output 12 00:00:00.09 00:00:00.29 
Psect synopsis output 2 00:00:00.01 00:00:00.22 
Cross-reference output 0 00:00:00.00 00:00:00.00 
Assembler run totals 388 00:00:10.79 00:00:23.80 


The working set Limit was 1050 pages. 
41924 bytes (82 pages) of virtual memory were used to buffer the intermediate c 
There were 40 pages of symbol table space allocated to hold 710 non-local and s3° lecat symbols. 
319 source Lines were read in Pass 1, producing 14 object records in Pass 2. 
23 pages of virtual memory were used to define 20 macros. 


$owececewowowcecoccccecooon} 


Macro Library name Macros defined 


“$255$DUA28: f THT -OBJJPLIRTMAC.MLB; 1 6 
“$255$DUA28:CSYSLIBJSTARLET.MLB; 2 11 
TOTALS (all Libraries) 17 


805 GETS were required to define 17 macros. 
There were no errors, warnings or information messages. 
MACRO/ENABLE=SUPPRESSION/DI SABLE=TRACEBACK/LIS=LIS$:PLIREWRIT/OBJ=OBJ$:PLIREWRIT MSRC$:PLIREWRIT/UPDATE=(ENHS$:PLIREWRIT)+LIBS:PLIRTM 
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